home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / e / yaec.lha / examples / ColourScreen.e < prev    next >
Text File  |  2001-08-12  |  253b  |  13 lines
  1. /* _Very_ simple customscreen-demo */
  2.  
  3. PROC main()
  4.   DEF screen,sx,sy
  5.   IF screen:=OpenS(321,257,5,0,'My Screen')
  6.      FOR sx:=0 TO 320
  7.         FOR sy:=0 TO 256 DO Plot(sx,sy,sx*sy+1)
  8.         EXIT Mouse()
  9.      ENDFOR
  10.      CloseS(screen)
  11.   ENDIF
  12. ENDPROC
  13.